Global Biodiversity, Trade, and Conservation Funding
World Maps
This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For example, you can include Bold and Italic and Code text. For more details on using R Markdown see http://rmarkdown.rstudio.com.
You should test out updating your GitHub Pages website:
- clone your group’s blog project repo in RStudio
- update “Your Project Title Here” to a new title in the YAML header
- knit
index.Rmd - commit and push BOTH the
index.Rmdand theindex.htmlfiles - go to https://stat231-s21.github.io/Blog-Team-Save-the-Planet/ to see the published test document (this is publicly available!)
Biodiversity
threatened_iucn <- read.csv("threatenediucn_final.csv")
world_map <- map_data(map = "world"
, region = ".")
threatened_all <- threatened_iucn %>%
group_by(Country) %>%
summarise(tot_species = sum(num_species)) %>%
full_join(world_map, by = c("Country" = "region"))
ggplot(data = threatened_all, aes(x = long, y = lat, group = group)) +
geom_polygon(mapping = aes(x = long, y = lat, fill = tot_species),
colour = "black") +
theme_void() +
coord_fixed(ratio = 1.3) +
scale_fill_viridis(option = "magma", direction = -1, na.value = "white") +
labs(title = "Global Species Diversity by IUCN Threat Level"
, fill = "Number of Species*"
, caption = "*Regions in white have no data")
International Trade
Conservation Funding (as of 2013)
conservation <- read_csv("conservation_final.csv")##
## ── Column specification ────────────────────────────────────────────────────────
## cols(
## region = col_character(),
## total_aid_funding = col_double(),
## total_domestic_funding = col_double(),
## trust_funds_and_debt_swaps = col_double(),
## other = col_double(),
## total = col_double(),
## log_funding = col_double(),
## sqrt_funding = col_double(),
## long = col_double(),
## lat = col_double(),
## group = col_double(),
## order = col_double(),
## subregion = col_logical()
## )## Warning: 35929 parsing failures.
## row col expected actual file
## 1222 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1223 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1224 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1225 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1226 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## .... ......... .................. ....... ........................
## See problems(...) for more details.# Map of Log(funding)
ggplot(conservation, aes(x = long, y = lat, group = group,
fill = log_funding)) +
geom_polygon(color = "black") +
theme_void() +
coord_fixed(ratio = 1.3) +
labs(title = "Conservation Funding By Country*"
, subtitle = "as of 2013"
, fill = ""
, caption = "*Regions in white have no data") +
#scale_fill_continuous(low="thistle2", high="darkred", guide="colorbar", na.value="white")
scale_fill_viridis(option = "viridis", direction = -1, na.value="white")
In a study from the 1920s, fifty cars were used to see how the speed of the car and the distance taken to stop were related. Speeds ranged between 4 and 25 mph. Distances taken to stop ranged between 2 and 120 feet, with the middle 50% falling between 26 and 56 feet.
